 <html>
 <head>
 <title>l_complex_taylor.f90</title>                                            
                                                                                
                                           
 </head>
 <body>
MODULE COMPLEX_TAYLOR <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          
  USE TPSALIE_ANALYSIS <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
  IMPLICIT NONE <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
  PUBLIC <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
  PRIVATE MUL,CSCMUL,CMULSC,DSCMUL,DMULSC,MULSC,SCMUL,IMULSC,ISCMUL <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
  PRIVATE CTMUL, CMULT,CTADD,CADDT,CTSUB,CSUBT,CTDIV,CDIVT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
  PRIVATE ADD,CSCADD,DSCADD,CADDSC,DADDSC,UNARYADD,ADDSC,SCADD,IADDSC,ISCADD <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
  PRIVATE TADD,ADDT,TMUL,MULT,TSUB,SUBT,TDIV,DIVT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
  PRIVATE INV,DIV,DSCDIV,CSCDIV,CDIVSC,DDIVSC,DIVSC,SCDIV,IDIVSC,ISCDIV <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
  PRIVATE SUBS,CSCSUB,DSCSUB,CSUBSC,DSUBSC,ISCSUB,ISUBSC,SCSUB,SUBSC,UNARYSUB <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
  PRIVATE EQUAL,CEQUALDACON,DEQUALDACON,EQUALDACON,IEQUALDACON,CTEQUAL,TCEQUAL <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
  PRIVATE POW,POWR,POWR8 <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
  PRIVATE ALLOCCOMPLEX,A_OPT,K_OPT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
  PRIVATE LOGTPSAT,EXPTPSAT,ABSTPSAT,DCOST,DSINT,DATANT,TANT,DASINT,DACOST <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
  PRIVATE DCOSHT,DSINHT,DTANHT,DSQRTT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                          
  PRIVATE GETDIFF,GETDATRA,GETORDER,CUTORDER,GETCHAR ,DPUTCHAR,DPUTINT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
  PRIVATE SET_IN_COMPLEX <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
  PRIVATE DIMAGT,DREALT,DCMPLXT,CEQUAL,DEQUAL,REQUAL <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
  PRIVATE GETCHARND2,GETINTND2,GETINT,GETCHARND2S,GETINTND2S,GETINTK <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
  PRIVATE CFUC,CFURES,VARCO,VARCO1 <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
  PRIVATE DATANTT,DASINTT,DACOSTT,FULL_ABSTPSAT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
  INTEGER,PRIVATE::NO,ND,ND2,NP,NDPT,NV <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
  LOGICAL(LP),PRIVATE::OLD <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
  LOGICAL :: DEBUG_FLAG =.FALSE. <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
  LOGICAL :: DEBUG_ACOS=.FALSE. <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="="></a>
<font color="#0000FF">  INTERFACE ASSIGNMENT (=) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#EQUAL">     MODULE PROCEDURE EQUAL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CTEQUAL">     MODULE PROCEDURE CTEQUAL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#TCEQUAL">     MODULE PROCEDURE TCEQUAL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CEQUAL">     MODULE PROCEDURE CEQUAL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DEQUAL">     MODULE PROCEDURE DEQUAL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#REQUAL">     MODULE PROCEDURE REQUAL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CEQUALDACON">     MODULE PROCEDURE CEQUALDACON</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DEQUALDACON">     MODULE PROCEDURE DEQUALDACON</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#EQUALDACON">     MODULE PROCEDURE EQUALDACON</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#IEQUALDACON">     MODULE PROCEDURE IEQUALDACON</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                 
<font color="#0000FF">  END  INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
         <table border="4" cellspacing="1" bordercolor="#000000" id="AutoNumber1" width="684" height="445">                                                                                                                                                                                                                                                                                                                                                                                                         
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="78" height="84" align="center" rowspan="2" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="4"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; +</b>&nbsp;&nbsp;&nbsp; </font></span></td>                                                                                                                                                                                                                                                                                                                                                            
             <td width="193" height="40" align="center" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">COMPLEX</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="288" height="40" align="center" colspan="3">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">REAL</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="95" height="82" align="center" rowspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="88" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <p>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX TAYLOR</font></span></p>                                                                                                                                                                                                                                                                                                                                                                                                                                 
             </td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="105" height="42" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                   
             <td width="88" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="101" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">rEAL(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="100" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(SP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="109" align="center" rowspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">COMPLEX</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="54" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                
             <td width="84" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#ADD" style="text-decoration: none; font-weight: 700">ADD</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                 
             <td width="105" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#CADDSC" style="text-decoration: none; font-weight: 700">CADDSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                           
             <td width="92" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#ADDT" style="text-decoration: none; font-weight: 700">                                                                                                                                                                                                                                                                                                                                                                                                                   
             ADDT</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
             <td width="102" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#DADDSC" style="text-decoration: none; font-weight: 700">DADDSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                           
             <td width="99" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#ADDSC" style="text-decoration: none; font-weight: 700">ADDSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="94" height="53" align="center"><font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <a href="l_complex_taylor.htm#IADDSC" style="text-decoration: none; font-weight: 700">                                                                                                                                                                                                                                                                                                                                                                                                                 
             IADDSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                   
             <td width="84" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#CSCADD" style="text-decoration: none; font-weight: 700">CSCADD</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                           
             <td width="105" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="92" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#CADDT" style="text-decoration: none; font-weight: 700">                                                                                                                                                                                                                                                                                                                                                                                                                  
             CADDT</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="102" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="99" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="94" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="171" align="center" rowspan="3">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">REAL</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="39" height="54" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="84" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#TADD" style="text-decoration: none; font-weight: 700">TADD</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                               
             <td width="105" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#CTADD" style="text-decoration: none; font-weight: 700">CTADD</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="92" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
                <span style="text-transform: uppercase; ">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#ADD" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                          
             <font color="#FF0000">add</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <span style="text-transform: uppercase; ">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#DADDSC" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">daddsc</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#ADDSC" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                        
                <font color="#FF0000">ADDSC</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
                <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <font color="#FF0000">&nbsp;&nbsp; </font>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <a href="i_tpsa.htm#IADDSC" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">IADDSC</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="56" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="84" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#DSCADD" style="text-decoration: none; font-weight: 700">DSCADD</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                           
             <td width="105" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <span style="text-transform: uppercase; ">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#DSCADD" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">dscadd</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                          
             <td width="102" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="56" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(SP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="84" height="52" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#SCADD" style="text-decoration: none; font-weight: 700">                                                                                                                                                                                                                                                                                                                                                                                                                  
             SCADD</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="105" height="52" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#SCADD" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                        
                <font color="#FF0000">SCADD</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="102" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="78" height="56" align="center" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
             <td width="84" height="61" align="center"><font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <a href="l_complex_taylor.htm#ISCADD" style="text-decoration: none; font-weight: 700">ISCADD</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                           
             <td width="105" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#ISCADD" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">ISCADD</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <td width="102" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
         </table>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
 <a name="+"></a>
<font color="#0000FF">  INTERFACE OPERATOR (+) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ADD">     MODULE PROCEDURE ADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#TADD">     MODULE PROCEDURE TADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ADDT">     MODULE PROCEDURE ADDT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CSCADD">     MODULE PROCEDURE CSCADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSCADD">     MODULE PROCEDURE DSCADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CTADD">     MODULE PROCEDURE CTADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CADDT">     MODULE PROCEDURE CADDT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CADDSC">     MODULE PROCEDURE CADDSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DADDSC">     MODULE PROCEDURE DADDSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#UNARYADD">     MODULE PROCEDURE UNARYADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ADDSC">     MODULE PROCEDURE ADDSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SCADD">     MODULE PROCEDURE SCADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#IADDSC">     MODULE PROCEDURE IADDSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ISCADD">     MODULE PROCEDURE ISCADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
         <table border="4" cellspacing="1" bordercolor="#000000" id="AutoNumber2" width="684" height="445">                                                                                                                                                                                                                                                                                                                                                                                                         
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="78" height="84" align="center" rowspan="2" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="4"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                                                                                                                                                                                                                                                                                                                                                                                                              
             -</b>&nbsp;&nbsp; </font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="193" height="40" align="center" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">COMPLEX</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="288" height="40" align="center" colspan="3">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">REAL</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="95" height="82" align="center" rowspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="88" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <p>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX TAYLOR</font></span></p>                                                                                                                                                                                                                                                                                                                                                                                                                                 
             </td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="105" height="42" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                   
             <td width="88" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="101" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">rEAL(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="100" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(SP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="109" align="center" rowspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">COMPLEX</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="54" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                
             <td width="84" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a style="text-decoration: none; font-weight: 700" href="l_complex_taylor.htm#SUBS">SUBS</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                               
             <td width="105" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a style="text-decoration: none; font-weight: 700" href="l_complex_taylor.htm#CSUBSC">CSUBSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                           
             <td width="92" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a style="text-decoration: none; font-weight: 700" href="l_complex_taylor.htm#SUBT">SUBT</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                               
             <td width="102" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#DSUBSC" style="text-decoration: none; font-weight:700">DSUBSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                            
             <td width="99" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#SUBSC" style="text-decoration: none; font-weight:700">SUBSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="53" align="center"><font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <a href="l_complex_taylor.htm#ISUBSC" style="text-decoration: none; font-weight:700">ISUBSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                            
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                   
             <td width="84" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
              <ahref="l_complex_taylor.htm#CSCSUB" style="text-decoration: none; font-weight:700">                                                                                                                                                                                                                                                                                                                                                                                                                  
              <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
             <a href="l_complex_taylor.htm#CSCSUB" style="text-decoration: none; font-weight: 700">CSCSUB</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                           
             <td width="105" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="92" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <ahref="l_complex_taylor.htm#CSUBT" style="text-decoration: none">                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#CSUBT" style="text-decoration: none"><b>CSUBT</b></a></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                    
             <td width="102" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="99" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="94" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="171" align="center" rowspan="3">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">REAL</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="39" height="54" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="84" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#TSUB" style="text-decoration: none; font-weight:700">TSUB</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                
             <td width="105" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a style="text-decoration: none; font-weight: 700" href="l_complex_taylor.htm#CTSUB">                                                                                                                                                                                                                                                                                                                                                                                                                  
             CTSUB</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="92" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
                <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
                <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a style="text-decoration: none; font-style:italic" href="i_tpsa.htm#SUBS">                                                                                                                                                                                                                                                                                                                                                                                                                         
             <font color="#FF0000">SUBS</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                               
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                 <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                           
                 <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
                <a style="text-decoration: none; font-style:italic" href="i_tpsa.htm#DSUBSC">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">dSUBsc</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a style="text-decoration: none; font-style:italic" href="i_tpsa.htm#SUBSC">                                                                                                                                                                                                                                                                                                                                                                                                                        
                 <font color="#FF0000">SUBSC</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
                <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                 <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
                <font color="#FF0000">&nbsp;&nbsp;                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
                <a style="text-decoration: none; font-style:italic" href="i_tpsa.htm#ISUBSC">&nbsp;</a></font><a style="text-decoration: none; font-style:italic" href="i_tpsa.htm#ISUBSC"><font color="                                                                                                                                                                                                                                                                                                            
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="56" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="84" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <ahref="l_complex_taylor.htm#DSCSUB" style="text-decoration: none; font-weight:700">                                                                                                                                                                                                                                                                                                                                                                                                                   
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#DSCSUB" style="text-decoration: none; font-weight: 700">DSCSUB</a></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                       
             <td width="105" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
                <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a style="text-decoration: none; font-style:italic" href="i_tpsa.htm#DSCSUB">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">dscSUB</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                          
             <td width="102" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="56" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(SP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="84" height="52" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <ahref="l_complex_taylor.htm#SCSUB" style="text-decoration: none; font-weight:700">                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#SCSUB" style="text-decoration: none; font-weight: 700">SCSUB</a></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                         
             <td width="105" height="52" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a style="text-decoration: none; font-style:italic" href="i_tpsa.htm#SCSUB">                                                                                                                                                                                                                                                                                                                                                                                                                        
                <font color="#FF0000">SCSUB</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="102" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="78" height="56" align="center" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
             <td width="84" height="61" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <ahref="l_complex_taylor.htm#ISCSUB" style="text-decoration: none; font-weight:700"><font size="2">                                                                                                                                                                                                                                                                                                                                                                                                    
              <a href="l_complex_taylor.htm#ISCSUB" style="text-decoration: none; font-weight: 700">ISCSUB</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                          
             <td width="105" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#ISCSUB" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">ISCSUB</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <td width="102" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
         </table>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
 <a name="-"></a>
<font color="#0000FF">  INTERFACE OPERATOR (-) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#UNARYSUB">     MODULE PROCEDURE UNARYSUB</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SUBS">     MODULE PROCEDURE SUBS</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CTSUB">     MODULE PROCEDURE CTSUB</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CSUBT">     MODULE PROCEDURE CSUBT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#TSUB">     MODULE PROCEDURE TSUB</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SUBT">     MODULE PROCEDURE SUBT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CSCSUB">     MODULE PROCEDURE CSCSUB</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSCSUB">     MODULE PROCEDURE DSCSUB</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CSUBSC">     MODULE PROCEDURE CSUBSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSUBSC">     MODULE PROCEDURE DSUBSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SUBSC">     MODULE PROCEDURE SUBSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SCSUB">     MODULE PROCEDURE SCSUB</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ISUBSC">     MODULE PROCEDURE ISUBSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ISCSUB">     MODULE PROCEDURE ISCSUB</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
         <table border="4" cellspacing="1" bordercolor="#000000" id="AutoNumber3" width="684" height="445">                                                                                                                                                                                                                                                                                                                                                                                                         
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="78" height="84" align="center" rowspan="2" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="4"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </b>                                                                                                                                                                                                                                                                                                                                                                                                         
             *&nbsp;&nbsp; </font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="193" height="40" align="center" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">COMPLEX</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="288" height="40" align="center" colspan="3">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">REAL</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="95" height="82" align="center" rowspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="88" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <p>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX TAYLOR</font></span></p>                                                                                                                                                                                                                                                                                                                                                                                                                                 
             </td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="105" height="42" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                   
             <td width="88" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="101" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">rEAL(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="100" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(SP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="109" align="center" rowspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">COMPLEX</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="54" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                
             <td width="84" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2"><a href="l_complex_taylor.htm#MUL" style="text-decoration: none">MUL</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                                
             <td width="105" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2"><a href="l_complex_taylor.htm#CMULSC" style="text-decoration: none">CMULSC</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                          
             <td width="92" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2"><a href="l_complex_taylor.htm#MULT" style="text-decoration: none">MULT</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="102" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2"><a href="l_complex_taylor.htm#DMULSC" style="text-decoration: none">DMULSC</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                          
             <td width="99" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2"><a href="l_complex_taylor.htm#MULSC" style="text-decoration: none">MULSC</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                            
             <td width="94" height="53" align="center"><b><font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                           
             <a href="l_complex_taylor.htm#IMULSC" style="text-decoration: none">IMULSC</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                                         
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                   
             <td width="84" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2"><a href="l_complex_taylor.htm#CSCMUL" style="text-decoration: none">CSCMUL</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                          
             <td width="105" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="92" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2"><a href="l_complex_taylor.htm#CMULT" style="text-decoration: none">CMULT</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                            
             <td width="102" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="99" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="94" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="171" align="center" rowspan="3">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">REAL</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="39" height="54" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="84" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2"><a href="l_complex_taylor.htm#TMUL" style="text-decoration: none">TMUL</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="105" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2"><a href="l_complex_taylor.htm#CTMUL" style="text-decoration: none">CTMUL</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                            
             <td width="92" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
                <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
                <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#MUL" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                          
             <font color="#FF0000">MUL</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
                <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#DMULSC" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">dMULsc</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#MULSC" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                        
                <font color="#FF0000">MULSC</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
                <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <font color="#FF0000">&nbsp;&nbsp; </font>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <a href="i_tpsa.htm#IMULSC" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">IMULSC</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="56" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="84" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2"><a href="l_complex_taylor.htm#DSCMUL" style="text-decoration: none">DSCMUL</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                          
             <td width="105" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
                <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#DSCMUL" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">dscMUL</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                          
             <td width="102" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="56" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(SP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="84" height="52" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <font size="2"><a href="l_complex_taylor.htm#SCMUL" style="text-decoration: none">SCMUL</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                            
             <td width="105" height="52" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#SCMUL" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                        
                <font color="#FF0000">SCMUL</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="102" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="78" height="56" align="center" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
             <td width="84" height="61" align="center"><b><font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                           
             <a href="l_complex_taylor.htm#ISCMUL" style="text-decoration: none">ISCMUL</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                                         
             <td width="105" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#ISCMUL" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">ISCMUL</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <td width="102" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
        </table>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
 <a name="*"></a>
<font color="#0000FF">  INTERFACE OPERATOR (*) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#MUL">     MODULE PROCEDURE MUL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#TMUL">     MODULE PROCEDURE TMUL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#MULT">     MODULE PROCEDURE MULT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CSCMUL">     MODULE PROCEDURE  CSCMUL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CTMUL">     MODULE PROCEDURE  CTMUL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSCMUL">     MODULE PROCEDURE  DSCMUL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CMULSC">     MODULE PROCEDURE  CMULSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CMULT">     MODULE PROCEDURE  CMULT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DMULSC">     MODULE PROCEDURE  DMULSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#MULSC">     MODULE PROCEDURE MULSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SCMUL">     MODULE PROCEDURE SCMUL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#IMULSC">     MODULE PROCEDURE IMULSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ISCMUL">     MODULE PROCEDURE ISCMUL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
         <table border="4" cellspacing="1" bordercolor="#000000" id="AutoNumber4" width="684" height="445">                                                                                                                                                                                                                                                                                                                                                                                                         
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="78" height="84" align="center" rowspan="2" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="4"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </b>                                                                                                                                                                                                                                                                                                                                                                                                               
             /&nbsp; </font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <td width="193" height="40" align="center" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">COMPLEX</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="288" height="40" align="center" colspan="3">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">REAL</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="95" height="82" align="center" rowspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="88" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <p>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX TAYLOR</font></span></p>                                                                                                                                                                                                                                                                                                                                                                                                                                 
             </td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="105" height="42" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                   
             <td width="88" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="101" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">rEAL(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="100" height="39" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(SP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="109" align="center" rowspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">COMPLEX</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="54" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                
             <td width="84" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#DIV" style="text-decoration: none; font-weight:700">DIV</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="105" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#CDIVSC" style="text-decoration: none; font-weight:700">CDIVSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                            
             <td width="92" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#DIVT" style="text-decoration: none; font-weight:700">DIVT</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                
             <td width="102" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#DDIVSC" style="text-decoration: none; font-weight:700">DDIVSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                            
             <td width="99" height="53" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#DIVSC" style="text-decoration: none; font-weight:700">DIVSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="53" align="center"><font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <a href="l_complex_taylor.htm#IDIVSC" style="text-decoration: none; font-weight:700">IDIVSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                            
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">COMPLEX(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                   
             <td width="84" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
              <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
              <a href="l_complex_taylor.htm#CSCDIV" style="text-decoration: none; font-weight:700">CSCDIV</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                           
             <td width="105" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="92" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
              <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
              <a href="l_complex_taylor.htm#CDIVT" style="text-decoration: none; font-weight:700">CDIVT</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="102" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="99" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="94" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="171" align="center" rowspan="3">                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font size="2">REAL</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="39" height="54" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">TAYLOR</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="84" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#TDIV" style="text-decoration: none; font-weight:700">TDIV</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                
             <td width="105" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#CTDIV" style="text-decoration: none; font-weight:700">CTDIV</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="92" height="50" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
                <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
                <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#DIV" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                          
             <font color="#FF0000">div</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
                 <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
                 <a href="i_tpsa.htm#DDIVSC" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                      
                <font color="#FF0000">dDIVsc</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
                <a href="i_tpsa.htm#DIVSC" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                        
                <font color="#FF0000">DIVSC</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
                <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
                 <font color="#FF0000">&nbsp;&nbsp;&nbsp;&nbsp; </font>                                                                                                                                                                                                                                                                                                                                                                                                                                             
                 <a href="i_tpsa.htm#IDIVSC" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                      
                 <font color="#FF0000">IDIVSC</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="56" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(DP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="84" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <a href="l_complex_taylor.htm#DSCDIV" style="text-decoration: none; font-weight:700">DSCDIV</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                            
             <td width="105" height="55" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
                <font face="Times New Roman" size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
                <a href="i_tpsa.htm#DSCDIV" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">dscDIV</font></a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                          
             <td width="102" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="55" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="39" height="56" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">REAL(SP)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="84" height="52" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
              <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
              <a href="l_complex_taylor.htm#SCDIV" style="text-decoration: none; font-weight:700">SCDIV</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="105" height="52" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
                 <a href="i_tpsa.htm#SCDIV" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                       
                <font color="#FF0000">SCDIV</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
             <td width="102" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="52" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="78" height="56" align="center" colspan="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="2">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
             <td width="84" height="61" align="center"><font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <a href="l_complex_taylor.htm#ISCDIV" style="text-decoration: none; font-weight:700">                                                                                                                                                                                                                                                                                                                                                                                                                  
             ISCDIV</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <td width="105" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
                <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                <font size="2">                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
                 <a href="i_tpsa.htm#ISCDIV" style="text-decoration: none; font-style:italic">                                                                                                                                                                                                                                                                                                                                                                                                                      
                 <font color="#FF0000">ISCDIV</font></a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <td width="102" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <td width="99" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <td width="94" height="61" align="center"><b>F90</b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
         </table>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
 <a name="/"></a>
<font color="#0000FF">  INTERFACE OPERATOR (/) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DIV">     MODULE PROCEDURE DIV</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DIVT">     MODULE PROCEDURE DIVT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#TDIV">     MODULE PROCEDURE TDIV</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CTDIV">     MODULE PROCEDURE CTDIV</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CDIVT">     MODULE PROCEDURE CDIVT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DDIVSC">     MODULE PROCEDURE DDIVSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CDIVSC">     MODULE PROCEDURE CDIVSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSCDIV">     MODULE PROCEDURE DSCDIV</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CSCDIV">     MODULE PROCEDURE CSCDIV</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DIVSC">     MODULE PROCEDURE DIVSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SCDIV">     MODULE PROCEDURE SCDIV</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#IDIVSC">     MODULE PROCEDURE IDIVSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ISCDIV">     MODULE PROCEDURE ISCDIV</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="**"></a>
<font color="#0000FF">  INTERFACE OPERATOR (**) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#POW">     MODULE PROCEDURE POW</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#POWR">     MODULE PROCEDURE POWR</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#POWR8">     MODULE PROCEDURE POWR8</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="VAR"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.VAR.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#VARCO">     MODULE PROCEDURE VARCO</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#VARCO1">     MODULE PROCEDURE VARCO1</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="MONO"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.MONO.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DPUTINT">     MODULE PROCEDURE DPUTINT</a></font><font color="#009933"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8594; Accepts J(nv) </br> </font><br>                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DPUTCHAR">     MODULE PROCEDURE DPUTCHAR</a></font><font color="#009933"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8594; Accepts String such as '12 </br> </font><br>                                                                                                                                                                                                                                                              
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="D"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.D.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETDIFF">     MODULE PROCEDURE GETDIFF</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="K"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.K.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETDATRA">     MODULE PROCEDURE GETDATRA</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SUB"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.SUB.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETORDER">     MODULE PROCEDURE GETORDER</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETCHAR">     MODULE PROCEDURE GETCHAR</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETINT">     MODULE PROCEDURE GETINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CUT"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.CUT.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CUTORDER">     MODULE PROCEDURE CUTORDER</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PAR"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.PAR.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETCHARND2">     MODULE PROCEDURE GETCHARND2</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETINTND2">     MODULE PROCEDURE GETINTND2</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                     
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="<="></a>
<font color="#0000FF">  INTERFACE OPERATOR (<=) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETCHARND2S">     MODULE PROCEDURE GETCHARND2S</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETINTND2S">     MODULE PROCEDURE GETINTND2S</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETINTK">     MODULE PROCEDURE GETINTK</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="AIMAG"></a>
<font color="#0000FF">  INTERFACE AIMAG </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DIMAGT">     MODULE PROCEDURE DIMAGT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DIMAG"></a>
<font color="#0000FF">  INTERFACE DIMAG </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DIMAGT">     MODULE PROCEDURE DIMAGT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DBLE"></a>
<font color="#0000FF">  INTERFACE DBLE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DREALT">     MODULE PROCEDURE DREALT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DREAL"></a>
<font color="#0000FF">  INTERFACE DREAL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DREALT">     MODULE PROCEDURE DREALT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CMPLX"></a>
<font color="#0000FF">  INTERFACE CMPLX </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCMPLXT">     MODULE PROCEDURE DCMPLXT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DCMPLX"></a>
<font color="#0000FF">  INTERFACE DCMPLX </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCMPLXT">     MODULE PROCEDURE DCMPLXT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ABS"></a>
<font color="#0000FF">  INTERFACE ABS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ABSTPSAT">     MODULE PROCEDURE ABSTPSAT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DABS"></a>
<font color="#0000FF">  INTERFACE DABS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ABSTPSAT">     MODULE PROCEDURE ABSTPSAT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="LOG"></a>
<font color="#0000FF">  INTERFACE LOG </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#LOGTPSAT">     MODULE PROCEDURE LOGTPSAT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DLOG"></a>
<font color="#0000FF">  INTERFACE DLOG </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#LOGTPSAT">     MODULE PROCEDURE LOGTPSAT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CLOG"></a>
<font color="#0000FF">  INTERFACE CLOG </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#LOGTPSAT">     MODULE PROCEDURE LOGTPSAT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CDLOG"></a>
<font color="#0000FF">  INTERFACE CDLOG </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#LOGTPSAT">     MODULE PROCEDURE LOGTPSAT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ATAN"></a>
<font color="#0000FF">  INTERFACE ATAN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DATANT">     MODULE PROCEDURE DATANT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DATANTT">     MODULE PROCEDURE DATANTT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DATAN"></a>
<font color="#0000FF">  INTERFACE DATAN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DATANT">     MODULE PROCEDURE DATANT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DATANTT">     MODULE PROCEDURE DATANTT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ASIN"></a>
<font color="#0000FF">  INTERFACE ASIN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DASINT">     MODULE PROCEDURE DASINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DASINTT">     MODULE PROCEDURE DASINTT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DASIN"></a>
<font color="#0000FF">  INTERFACE DASIN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DASINT">     MODULE PROCEDURE DASINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DASINTT">     MODULE PROCEDURE DASINTT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ACOS"></a>
<font color="#0000FF">  INTERFACE ACOS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DACOST">     MODULE PROCEDURE DACOST</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DACOSTT">     MODULE PROCEDURE DACOSTT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DACOS"></a>
<font color="#0000FF">  INTERFACE DACOS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DACOST">     MODULE PROCEDURE DACOST</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DACOSTT">     MODULE PROCEDURE DACOSTT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TAN"></a>
<font color="#0000FF">  INTERFACE TAN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#TANT">     MODULE PROCEDURE TANT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DTAN"></a>
<font color="#0000FF">  INTERFACE DTAN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#TANT">     MODULE PROCEDURE TANT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="COS"></a>
<font color="#0000FF">  INTERFACE COS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOST">     MODULE PROCEDURE DCOST</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CDCOS"></a>
<font color="#0000FF">  INTERFACE CDCOS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOST">     MODULE PROCEDURE DCOST</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CCOS"></a>
<font color="#0000FF">  INTERFACE CCOS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOST">     MODULE PROCEDURE DCOST</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DCOS"></a>
<font color="#0000FF">  INTERFACE DCOS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOST">     MODULE PROCEDURE DCOST</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SIN"></a>
<font color="#0000FF">  INTERFACE SIN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINT">     MODULE PROCEDURE DSINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CDSIN"></a>
<font color="#0000FF">  INTERFACE CDSIN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINT">     MODULE PROCEDURE DSINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CSIN"></a>
<font color="#0000FF">  INTERFACE CSIN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINT">     MODULE PROCEDURE DSINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DSIN"></a>
<font color="#0000FF">  INTERFACE DSIN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINT">     MODULE PROCEDURE DSINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="EXP"></a>
<font color="#0000FF">  INTERFACE EXP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#EXPTPSAT">     MODULE PROCEDURE EXPTPSAT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DEXP"></a>
<font color="#0000FF">  INTERFACE DEXP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#EXPTPSAT">     MODULE PROCEDURE EXPTPSAT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CEXP"></a>
<font color="#0000FF">  INTERFACE CEXP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#EXPTPSAT">     MODULE PROCEDURE EXPTPSAT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CDEXP"></a>
<font color="#0000FF">  INTERFACE CDEXP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#EXPTPSAT">     MODULE PROCEDURE EXPTPSAT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="COSH"></a>
<font color="#0000FF">  INTERFACE COSH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOSHT">     MODULE PROCEDURE DCOSHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DCOSH"></a>
<font color="#0000FF">  INTERFACE DCOSH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOSHT">     MODULE PROCEDURE DCOSHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SINH"></a>
<font color="#0000FF">  INTERFACE SINH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINHT">     MODULE PROCEDURE DSINHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DSINH"></a>
<font color="#0000FF">  INTERFACE DSINH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINHT">     MODULE PROCEDURE DSINHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TANH"></a>
<font color="#0000FF">  INTERFACE TANH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DTANHT">     MODULE PROCEDURE DTANHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DTANH"></a>
<font color="#0000FF">  INTERFACE DTANH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DTANHT">     MODULE PROCEDURE DTANHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SQRT"></a>
<font color="#0000FF">  INTERFACE SQRT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSQRTT">     MODULE PROCEDURE DSQRTT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DSQRT"></a>
<font color="#0000FF">  INTERFACE DSQRT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSQRTT">     MODULE PROCEDURE DSQRTT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CDSQRT"></a>
<font color="#0000FF">  INTERFACE CDSQRT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSQRTT">     MODULE PROCEDURE DSQRTT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="POK"></a>
<font color="#0000FF">  INTERFACE POK </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#POKC">     MODULE PROCEDURE POKC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PEK"></a>
<font color="#0000FF">  INTERFACE PEK </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#PEKC">     MODULE PROCEDURE PEKC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CFU"></a>
<font color="#0000FF">  INTERFACE CFU </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CFUC">     MODULE PROCEDURE CFUC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CFURES">     MODULE PROCEDURE CFURES</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="FULL_ABS"></a>
<font color="#0000FF">  INTERFACE FULL_ABS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#FULL_ABSTPSAT">     MODULE PROCEDURE FULL_ABSTPSAT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DAPRINT"></a>
<font color="#0000FF">  INTERFACE DAPRINT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#PRINTCOMPLEX">     MODULE PROCEDURE PRINTCOMPLEX</a></font> <br>                                                                                                                                                                                                                                                                                                                                                               
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PRINT"></a>
<font color="#0000FF">  INTERFACE PRINT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#PRINTCOMPLEX">     MODULE PROCEDURE PRINTCOMPLEX</a></font> <br>                                                                                                                                                                                                                                                                                                                                                               
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="READ"></a>
<font color="#0000FF">  INTERFACE READ </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#INPUTCOMPLEX">     MODULE PROCEDURE INPUTCOMPLEX</a></font> <br>                                                                                                                                                                                                                                                                                                                                                               
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DAINPUT"></a>
<font color="#0000FF">  INTERFACE DAINPUT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#INPUTCOMPLEX">     MODULE PROCEDURE INPUTCOMPLEX</a></font> <br>                                                                                                                                                                                                                                                                                                                                                               
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ALLOC"></a>
<font color="#0000FF">  INTERFACE ALLOC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ALLOCCOMPLEX">     MODULE PROCEDURE ALLOCCOMPLEX</a></font> <br>                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#A_OPT">     MODULE PROCEDURE A_OPT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ALLOCCOMPLEXN">     MODULE PROCEDURE ALLOCCOMPLEXN</a></font> <br>                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="KILL"></a>
<font color="#0000FF">  INTERFACE KILL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#KILLCOMPLEX">     MODULE PROCEDURE KILLCOMPLEX</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#K_OPT">     MODULE PROCEDURE K_OPT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#KILLCOMPLEXN">     MODULE PROCEDURE KILLCOMPLEXN</a></font> <br>                                                                                                                                                                                                                                                                                                                                                               
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ASS"></a>
<font color="#0000FF">  INTERFACE ASS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ASSC">     MODULE PROCEDURE ASSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
CONTAINS <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DIMAGT"></a>
<font color="#37A50B">  FUNCTION DIMAGT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DIMAGT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DIMAGT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DIMAGT=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DIMAGT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DREALT"></a>
<font color="#37A50B">  FUNCTION DREALT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DREALT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DREALT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DREALT=S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DREALT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETCHARND2"></a>
<font color="#37A50B">  FUNCTION GETCHARND2( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) GETCHARND2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER(*)  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETCHARND2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETCHARND2%R=S1%R.PAR.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETCHARND2%I=S1%I.PAR.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETCHARND2 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETINTND2"></a>
<font color="#37A50B">  FUNCTION GETINTND2( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) GETINTND2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETINTND2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINTND2%R=S1%R.PAR.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINTND2%I=S1%I.PAR.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETINTND2 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETCHARND2S"></a>
<font color="#37A50B">  FUNCTION GETCHARND2S( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) GETCHARND2S</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER(*)  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETCHARND2S)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETCHARND2S%R=S1%R<=S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETCHARND2S%I=S1%I<=S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETCHARND2S </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETINTND2S"></a>
<font color="#37A50B">  FUNCTION GETINTND2S( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) GETINTND2S</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETINTND2S)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINTND2S%R= S1%R<=S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINTND2S%I= S1%I<=S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETINTND2S </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DPUTCHAR"></a>
<font color="#37A50B">  FUNCTION DPUTCHAR( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DPUTCHAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) , INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER(*)  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DPUTCHAR)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DPUTCHAR%R= REAL(S1,KIND=DP).MONO.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DPUTCHAR%I= AIMAG(S1).MONO.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DPUTCHAR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DPUTINT"></a>
<font color="#37A50B">  FUNCTION DPUTINT( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DPUTINT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) , INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DPUTINT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DPUTINT%R= REAL(S1,KIND=DP).MONO.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DPUTINT%I= AIMAG(S1).MONO.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DPUTINT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="VARCO"></a>
<font color="#37A50B">  FUNCTION VARCO(S1,S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) VARCO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) , INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2(2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(VARCO)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    VARCO%R=REAL(S1,KIND=DP) + (1.0_DP.MONO.S2(1))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    VARCO%I=AIMAG(S1) + (1.0_DP.MONO.S2(2))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION VARCO </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="VARCO1"></a>
<font color="#37A50B">  FUNCTION VARCO1(S1,S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) VARCO1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) , INTENT (IN) :: S1(2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2(2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(VARCO1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    VARCO1=S1(1)+S1(2)*((1.0_DP.MONO.S2(1))+I_*(1.0_DP.MONO.S2(2)))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION VARCO1 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETORDER"></a>
<font color="#37A50B">  FUNCTION GETORDER( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) GETORDER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETORDER)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETORDER%R=S1%R.SUB.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETORDER%I=S1%I.SUB.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETORDER </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CUTORDER"></a>
<font color="#37A50B">  FUNCTION CUTORDER( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CUTORDER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CUTORDER)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CUTORDER%R=S1%R.CUT.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CUTORDER%I=S1%I.CUT.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION CUTORDER </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETCHAR"></a>
<font color="#37A50B">  FUNCTION GETCHAR( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) GETCHAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) R1,R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER(*)  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=S1%R.SUB.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R2=S1%I.SUB.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETCHAR=CMPLX(R1,R2,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION GETCHAR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETINT"></a>
<font color="#37A50B">  FUNCTION GETINT( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) GETINT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) R1,R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=S1%R.SUB.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R2=S1%I.SUB.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINT=CMPLX(R1,R2,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETINT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="POW"></a>
<font color="#37A50B">  FUNCTION POW( S1, R2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) POW,TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I,R22</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(POW)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=1.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R22=IABS(R2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,R22</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       TEMP=TEMP*S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(R2.LT.0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       TEMP=1.0_DP/TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    POW=TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION POW </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                               
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="POWR"></a>
<font color="#37A50B">  FUNCTION POWR( S1, R2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) POWR,TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(POWR)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=LOG(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=TEMP*(R2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=EXP(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    POWR=TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION POWR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="POWR8"></a>
<font color="#37A50B">  FUNCTION POWR8( S1, R2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) POWR8,TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(POWR8)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=LOG(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=TEMP*R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=EXP(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    POWR8=TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION POWR8 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETDIFF"></a>
<font color="#37A50B">  FUNCTION GETDIFF( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) GETDIFF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETDIFF)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETDIFF%R=S1%R.D.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETDIFF%I=S1%I.D.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION GETDIFF </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETDATRA"></a>
<font color="#37A50B">  FUNCTION GETDATRA( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) GETDATRA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETDATRA)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETDATRA%R=S1%R.K.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETDATRA%I=S1%I.K.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION GETDATRA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ALLOCCOMPLEX"></a>
<font color="#FF0000">  SUBROUTINE  ALLOCCOMPLEX(S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOCTPSA(S2%R)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOCTPSA(S2%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font color="#FF0000">  END SUBROUTINE ALLOCCOMPLEX </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ALLOCCOMPLEXN"></a>
<font color="#FF0000">  SUBROUTINE  ALLOCCOMPLEXN(S2,K) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT),DIMENSION(:)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,OPTIONAL,INTENT(IN)::K</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER J,I,N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(K)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       I=LBOUND(S2,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       N=LBOUND(S2,DIM=1)+K-1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       I=LBOUND(S2,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       N=UBOUND(S2,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO   J=I,N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL ALLOCTPSA(S2(J)%R)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL ALLOCTPSA(S2(J)%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE ALLOCCOMPLEXN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="A_OPT"></a>
<font color="#FF0000">  SUBROUTINE  A_OPT(S1,S2,S3,S4,S5,S6,S7,S8,S9,S10) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S1,S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),OPTIONAL, INTENT(INOUT):: S3,S4,S5,S6,S7,S8,S9,S10</font> <br>                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(S2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S3)) CALL ALLOC(S3)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S4)) CALL ALLOC(S4)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S5)) CALL ALLOC(S5)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S6)) CALL ALLOC(S6)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S7)) CALL ALLOC(S7)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S8)) CALL ALLOC(S8)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S9)) CALL ALLOC(S9)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S10))CALL ALLOC(S10)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font color="#FF0000">  END SUBROUTINE A_OPT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="K_OPT"></a>
<font color="#FF0000">  SUBROUTINE  K_OPT(S1,S2,S3,S4,S5,S6,S7,S8,S9,S10) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S1,S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),OPTIONAL, INTENT(INOUT):: S3,S4,S5,S6,S7,S8,S9,S10</font> <br>                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(S2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S3)) CALL KILL(S3)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S4)) CALL KILL(S4)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S5)) CALL KILL(S5)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S6)) CALL KILL(S6)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S7)) CALL KILL(S7)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S8)) CALL KILL(S8)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S9)) CALL KILL(S9)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S10))CALL KILL(S10)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font color="#FF0000">  END SUBROUTINE K_OPT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PRINTCOMPLEX"></a>
<font color="#FF0000">  SUBROUTINE  PRINTCOMPLEX(S2,I,DEPS) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP),OPTIONAL,INTENT(INOUT)::DEPS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAPRINT(S2%R,I,DEPS)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAPRINT(S2%I,I,DEPS)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font color="#FF0000">  END SUBROUTINE PRINTCOMPLEX </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="INPUTCOMPLEX"></a>
<font color="#FF0000">  SUBROUTINE  INPUTCOMPLEX(S2,I) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAINPUT(S2%R,I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAINPUT(S2%I,I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font color="#FF0000">  END SUBROUTINE INPUTCOMPLEX </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="KILLCOMPLEX"></a>
<font color="#FF0000">  SUBROUTINE  KILLCOMPLEX(S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILLTPSA(S2%R)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILLTPSA(S2%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font color="#FF0000">  END SUBROUTINE KILLCOMPLEX </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="KILLCOMPLEXN"></a>
<font color="#FF0000">  SUBROUTINE  KILLCOMPLEXN(S2,K) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT),DIMENSION(:)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,OPTIONAL,INTENT(IN)::K</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER J,I,N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(K)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       I=LBOUND(S2,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       N=LBOUND(S2,DIM=1)+K-1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       I=LBOUND(S2,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       N=UBOUND(S2,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO   J=I,N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILLTPSA(S2(J)%R)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILLTPSA(S2(J)%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE KILLCOMPLEXN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="MUL"></a>
<font color="#37A50B">  FUNCTION MUL( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) MUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1, S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(MUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MUL%R=S1%R*S2%R-S1%I*S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MUL%I=S1%R*S2%I+S1%I*S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION MUL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                               
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DIV"></a>
<font color="#37A50B">  FUNCTION DIV( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DIV ,T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1, S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DIV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL INV(S2,T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DIV%R=S1%R*T%R-S1%I*T%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DIV%I=S1%R*T%I+S1%I*T%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DIV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                               
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CSCDIV"></a>
<font color="#37A50B">  FUNCTION CSCDIV( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CSCDIV ,T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CSCDIV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL INV(S2,T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSCDIV%R=REAL(S1,KIND=DP)*T%R-AIMAG(S1)*T%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSCDIV%I=REAL(S1,KIND=DP)*T%I+AIMAG(S1)*T%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CSCDIV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSCDIV"></a>
<font color="#37A50B">  FUNCTION DSCDIV( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DSCDIV ,T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSCDIV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL INV(S2,T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSCDIV%R=S1*T%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSCDIV%I=S1*T%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DSCDIV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SCDIV"></a>
<font color="#37A50B">  FUNCTION SCDIV( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) SCDIV ,T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SCDIV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL INV(S2,T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SCDIV%R=S1*T%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SCDIV%I=S1*T%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION SCDIV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ISCDIV"></a>
<font color="#37A50B">  FUNCTION ISCDIV( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) ISCDIV ,T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ISCDIV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL INV(S2,T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ISCDIV%R=S1*T%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ISCDIV%I=S1*T%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION ISCDIV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="IDIVSC"></a>
<font color="#37A50B">  FUNCTION IDIVSC( S2,S1  ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) IDIVSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(IDIVSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IDIVSC%R=(1.0_DP/S1)*S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IDIVSC%I=(1.0_DP/S1)*S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION IDIVSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DIVSC"></a>
<font color="#37A50B">  FUNCTION DIVSC( S2,S1  ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DIVSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DIVSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DIVSC%R=(1.0_DP/S1)*S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DIVSC%I=(1.0_DP/S1)*S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DIVSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DDIVSC"></a>
<font color="#37A50B">  FUNCTION DDIVSC( S2,S1  ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DDIVSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DDIVSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DDIVSC%R=(1.0_DP/S1)*S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DDIVSC%I=(1.0_DP/S1)*S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DDIVSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CDIVSC"></a>
<font color="#37A50B">  FUNCTION CDIVSC( S2,S1  ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CDIVSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CDIVSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CDIVSC%R=REAL((1.0_DP/S1),KIND=DP)*S2%R-AIMAG((1.0_DP/S1))*S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CDIVSC%I=REAL((1.0_DP/S1),KIND=DP)*S2%I+AIMAG((1.0_DP/S1))*S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CDIVSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CSCMUL"></a>
<font color="#37A50B">  FUNCTION CSCMUL( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CSCMUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CSCMUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSCMUL%R=REAL(SC,KIND=DP)*S1%R-AIMAG(SC)*S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSCMUL%I=REAL(SC,KIND=DP)*S1%I+AIMAG(SC)*S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CSCMUL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CTMUL"></a>
<font color="#37A50B">  FUNCTION CTMUL( S1,SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CTMUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CTMUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CTMUL%R=REAL(SC,KIND=DP)*S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CTMUL%I=AIMAG(SC)*S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CTMUL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CMULT"></a>
<font color="#37A50B">  FUNCTION CMULT( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CMULT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CMULT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CMULT%R=REAL(SC,KIND=DP)*S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CMULT%I=AIMAG(SC)*S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CMULT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CADDT"></a>
<font color="#37A50B">  FUNCTION CADDT( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CADDT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CADDT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CADDT%R=REAL(SC,KIND=DP)+S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CADDT%I=AIMAG(SC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CADDT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CTADD"></a>
<font color="#37A50B">  FUNCTION CTADD(S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CTADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CTADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CTADD%R=REAL(SC,KIND=DP)+S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CTADD%I=AIMAG(SC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CTADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CSUBT"></a>
<font color="#37A50B">  FUNCTION CSUBT( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CSUBT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CSUBT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSUBT%R=REAL(SC,KIND=DP)-S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSUBT%I=AIMAG(SC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CSUBT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CTSUB"></a>
<font color="#37A50B">  FUNCTION CTSUB( S1,SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CTSUB</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CTSUB)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CTSUB%R=S1-REAL(SC,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CTSUB%I=-AIMAG(SC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CTSUB </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CDIVT"></a>
<font color="#37A50B">  FUNCTION CDIVT( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CDIVT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CDIVT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CDIVT%R=REAL(SC,KIND=DP)/S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CDIVT%I=AIMAG(SC)/S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CDIVT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CTDIV"></a>
<font color="#37A50B">  FUNCTION CTDIV( S1,SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CTDIV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) W</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CTDIV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W=1.0_DP/SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CTDIV%R=S1*REAL(W,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CTDIV%I=S1*AIMAG(W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CTDIV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSCMUL"></a>
<font color="#37A50B">  FUNCTION DSCMUL( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DSCMUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSCMUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSCMUL%R=SC*S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSCMUL%I=SC*S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DSCMUL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SCMUL"></a>
<font color="#37A50B">  FUNCTION SCMUL( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) SCMUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SCMUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SCMUL%R=SC*S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SCMUL%I=SC*S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION SCMUL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ISCMUL"></a>
<font color="#37A50B">  FUNCTION ISCMUL( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) ISCMUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ISCMUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ISCMUL%R=SC*S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ISCMUL%I=SC*S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION ISCMUL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CMULSC"></a>
<font color="#37A50B">  FUNCTION CMULSC( S1,SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CMULSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CMULSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CMULSC%R=REAL(SC,KIND=DP)*S1%R-AIMAG(SC)*S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CMULSC%I=REAL(SC,KIND=DP)*S1%I+AIMAG(SC)*S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CMULSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DMULSC"></a>
<font color="#37A50B">  FUNCTION DMULSC( S1, SC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DMULSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DMULSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DMULSC%R=SC*S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DMULSC%I=SC*S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DMULSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="MULSC"></a>
<font color="#37A50B">  FUNCTION MULSC( S1, SC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) MULSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(MULSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MULSC%R=SC*S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MULSC%I=SC*S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION MULSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="IMULSC"></a>
<font color="#37A50B">  FUNCTION IMULSC( S1, SC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) IMULSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(IMULSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMULSC%R=SC*S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMULSC%I=SC*S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION IMULSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="EQUAL"></a>
<font color="#FF0000">  SUBROUTINE  EQUAL(S2,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(IN)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%R=S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%I=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE EQUAL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CTEQUAL"></a>
<font color="#FF0000">  SUBROUTINE  CTEQUAL(S2,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%R=S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%I=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CTEQUAL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TCEQUAL"></a>
<font color="#FF0000">  SUBROUTINE  TCEQUAL(S1,S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S1=S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE TCEQUAL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CEQUAL"></a>
<font color="#FF0000">  SUBROUTINE  CEQUAL(R1,S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT(INOUT)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=S2.SUB.'0'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font color="#FF0000">  END SUBROUTINE CEQUAL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DEQUAL"></a>
<font color="#FF0000">  SUBROUTINE  DEQUAL(R1,S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT(INOUT)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=S2.SUB.'0'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font color="#FF0000">  END SUBROUTINE DEQUAL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="REQUAL"></a>
<font color="#FF0000">  SUBROUTINE  REQUAL(R1,S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT(INOUT)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=S2.SUB.'0'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE REQUAL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CEQUALDACON"></a>
<font color="#FF0000">  SUBROUTINE  CEQUALDACON(S2,R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT(IN)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%R=REAL(R1,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%I=AIMAG(R1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CEQUALDACON </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DEQUALDACON"></a>
<font color="#FF0000">  SUBROUTINE  DEQUALDACON(S2,R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) , INTENT(IN)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%R=R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%I=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE DEQUALDACON </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="EQUALDACON"></a>
<font color="#FF0000">  SUBROUTINE  EQUALDACON(S2,R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP) , INTENT(IN)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%R=REAL(R1,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%I=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE EQUALDACON </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="IEQUALDACON"></a>
<font color="#FF0000">  SUBROUTINE  IEQUALDACON(S2,R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER , INTENT(IN)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%R=REAL(R1,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%I=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE IEQUALDACON </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ADD"></a>
<font color="#37A50B">  FUNCTION ADD( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) ADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1, S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ADD%R=S1%R+S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ADD%I=S1%I+S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION ADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                               
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TADD"></a>
<font color="#37A50B">  FUNCTION TADD( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) TADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(TADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TADD%R=S1+S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TADD%I=S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION TADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ADDT"></a>
<font color="#37A50B">  FUNCTION ADDT(  S2,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) ADDT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ADDT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ADDT%R=S1+S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ADDT%I=S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION ADDT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TSUB"></a>
<font color="#37A50B">  FUNCTION TSUB( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) TSUB</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(TSUB)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TSUB%R=S1-S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TSUB%I=-S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION TSUB </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SUBT"></a>
<font color="#37A50B">  FUNCTION SUBT(  S2,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) SUBT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SUBT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SUBT%R=S2%R-S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SUBT%I=S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION SUBT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TMUL"></a>
<font color="#37A50B">  FUNCTION TMUL( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) TMUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(TMUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TMUL%R=S1*S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TMUL%I=S1*S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION TMUL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="MULT"></a>
<font color="#37A50B">  FUNCTION MULT(  S2,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) MULT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(MULT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MULT%R=S1*S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MULT%I=S1*S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION MULT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TDIV"></a>
<font color="#37A50B">  FUNCTION TDIV( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) TDIV,TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(TDIV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=1.0_DP/S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TDIV%R=S1*TEMP%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TDIV%I=S1*TEMP%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font color="#37A50B">  END FUNCTION TDIV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DIVT"></a>
<font color="#37A50B">  FUNCTION DIVT(S2 , S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DIVT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DIVT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=1.0_DP/S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DIVT%R=TEMP*S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DIVT%I=TEMP*S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font color="#37A50B">  END FUNCTION DIVT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CSUBSC"></a>
<font color="#37A50B">  FUNCTION CSUBSC( S1,SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CSUBSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CSUBSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSUBSC%R=-REAL(SC,KIND=DP)+S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSUBSC%I=-AIMAG(SC)+S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CSUBSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSUBSC"></a>
<font color="#37A50B">  FUNCTION DSUBSC(S1,SC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DSUBSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSUBSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSUBSC%R=S1%R-SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSUBSC%I=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DSUBSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SUBSC"></a>
<font color="#37A50B">  FUNCTION SUBSC(S1,SC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) SUBSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP) , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SUBSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SUBSC%R=S1%R-SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SUBSC%I=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION SUBSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ISUBSC"></a>
<font color="#37A50B">  FUNCTION ISUBSC(S1,SC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) ISUBSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ISUBSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ISUBSC%R=S1%R-SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ISUBSC%I=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION ISUBSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CSCSUB"></a>
<font color="#37A50B">  FUNCTION CSCSUB( SC,S1  ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CSCSUB</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CSCSUB)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSCSUB%R=REAL(SC,KIND=DP)-S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSCSUB%I=AIMAG(SC)-S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CSCSUB </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSCSUB"></a>
<font color="#37A50B">  FUNCTION DSCSUB( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DSCSUB</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSCSUB)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSCSUB%R=SC-S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSCSUB%I=-S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DSCSUB </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SCSUB"></a>
<font color="#37A50B">  FUNCTION SCSUB( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) SCSUB</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP) , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SCSUB)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SCSUB%R=SC-S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SCSUB%I=-S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION SCSUB </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ISCSUB"></a>
<font color="#37A50B">  FUNCTION ISCSUB( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) ISCSUB</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ISCSUB)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ISCSUB%R=SC-S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ISCSUB%I=-S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION ISCSUB </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="UNARYSUB"></a>
<font color="#37A50B">  FUNCTION UNARYSUB( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) UNARYSUB</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(UNARYSUB)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    UNARYSUB%R=-S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    UNARYSUB%I=-S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION UNARYSUB </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SUBS"></a>
<font color="#37A50B">  FUNCTION SUBS( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) SUBS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1, S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SUBS)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SUBS%R=S1%R-S2%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SUBS%I=S1%I-S2%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION SUBS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CSCADD"></a>
<font color="#37A50B">  FUNCTION CSCADD( SC,S1  ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CSCADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CSCADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSCADD%R=REAL(SC,KIND=DP)+S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CSCADD%I=AIMAG(SC)+S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CSCADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CADDSC"></a>
<font color="#37A50B">  FUNCTION CADDSC(  S1,SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) CADDSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CADDSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CADDSC%R=REAL(SC,KIND=DP)+S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CADDSC%I=AIMAG(SC)+S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION CADDSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DADDSC"></a>
<font color="#37A50B">  FUNCTION DADDSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DADDSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DADDSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DADDSC%R=SC+S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DADDSC%I=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DADDSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ADDSC"></a>
<font color="#37A50B">  FUNCTION ADDSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) ADDSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP) , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ADDSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ADDSC%R=SC+S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ADDSC%I=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION ADDSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="IADDSC"></a>
<font color="#37A50B">  FUNCTION IADDSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) IADDSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(IADDSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IADDSC%R=SC+S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IADDSC%I=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION IADDSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSCADD"></a>
<font color="#37A50B">  FUNCTION DSCADD( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DSCADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSCADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSCADD%R=SC+S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSCADD%I=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DSCADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SCADD"></a>
<font color="#37A50B">  FUNCTION SCADD( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) SCADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP) , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SCADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SCADD%R=SC+S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SCADD%I=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION SCADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ISCADD"></a>
<font color="#37A50B">  FUNCTION ISCADD( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) ISCADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER , INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ISCADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ISCADD%R=SC+S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ISCADD%I=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION ISCADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="UNARYADD"></a>
<font color="#37A50B">  FUNCTION UNARYADD( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) UNARYADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(UNARYADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    UNARYADD%R=S1%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    UNARYADD%I=S1%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION UNARYADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="INV"></a>
<font color="#FF0000">  SUBROUTINE INV( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (INOUT) :: S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR)  S,SS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) D1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) R1 ,I1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(S)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(SS)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=S1%R.SUB.'0'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    I1=S1%I.SUB.'0'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S=S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    D1=CMPLX(R1,I1,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    D1=1.0_DP/D1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S=D1*S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S=S-1.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S=(-1.0_DP)*S</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SS=CMPLX(1.0_DP,0.0_DP,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=CMPLX(1.0_DP,0.0_DP,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,NO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       SS=SS*S</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       S2=S2+SS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=D1*S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(S)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(SS)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font color="#FF0000">  END SUBROUTINE INV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="LOGTPSAT"></a>
<font color="#37A50B">  FUNCTION LOGTPSAT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) LOGTPSAT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(LOGTPSAT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL LOGTPSA(S1,LOGTPSAT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION LOGTPSAT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="LOGTPSA"></a>
<font color="#FF0000">  SUBROUTINE LOGTPSA( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR)  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR)  S,SS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) D1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) R1 ,I1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(S)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(SS)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=S1%R.SUB.'0'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    I1=S1%I.SUB.'0'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    D1=CMPLX(R1,I1,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S=(1.0_DP/D1)*S1-1.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=S</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SS=S</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=2,NO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       SS=CMPLX(-1.0_DP,0.0_DP,KIND=DP)*SS*S</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       S2=S2+SS/REAL(I,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=LOG(D1)+S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(S)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(SS)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font color="#FF0000">  END SUBROUTINE LOGTPSA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="FULL_ABSTPSAT"></a>
<font color="#37A50B">  FUNCTION FULL_ABSTPSAT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) FULL_ABSTPSAT ,R1,R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=FULL_ABS(S1%R)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R2=FULL_ABS(S1%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    FULL_ABSTPSAT=R1+R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION FULL_ABSTPSAT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ABSTPSAT"></a>
<font color="#37A50B">  FUNCTION ABSTPSAT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) ABSTPSAT ,R1,R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=ABS(S1%R)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R2=ABS(S1%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ABSTPSAT=SQRT(R1**2+R2**2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION ABSTPSAT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DCMPLXT"></a>
<font color="#37A50B">  FUNCTION DCMPLXT( S1,S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DCMPLXT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1,S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DCMPLXT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DCMPLXT%R=S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DCMPLXT%I=S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DCMPLXT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DATANT"></a>
<font color="#37A50B">  FUNCTION DATANT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DATANT,TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DATANT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=(1.0_DP+S1*I_)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=TEMP/(1.0_DP-S1*I_)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=LOG(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DATANT=TEMP/2.0_DP/I_</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DATANT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DATANTT"></a>
<font color="#37A50B">  FUNCTION DATANTT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DATANTT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DATANTT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP%R=S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=ATAN(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DATANTT=TEMP%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DATANTT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DASINTT"></a>
<font color="#37A50B">  FUNCTION DASINTT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DASINTT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) A0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DASINTT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP%R=S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    A0=ABS(TEMP%R)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A0>1.0_DP) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CHECK_STABLE=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       STABLE_DA=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       MESSAGELOST= " NOT DEFINED IN DASINTT OF COMPLEX_TAYLOR "</font> <br>                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=ASIN(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DASINTT=TEMP%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DASINTT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DASINT"></a>
<font color="#37A50B">  FUNCTION DASINT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DASINT,TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DASINT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=(1.0_DP-S1**2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=TEMP**(0.5_DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=I_*S1+ TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DASINT=-I_*LOG(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DASINT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DACOSTT"></a>
<font color="#37A50B">  FUNCTION DACOSTT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DACOSTT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) A0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DACOSTT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    A0=ABS(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A0>1.0_DP) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CHECK_STABLE=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       STABLE_DA=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       MESSAGELOST= " NOT DEFINED IN DACOSTT OF COMPLEX_TAYLOR "</font> <br>                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP%R=S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=ACOS(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DACOSTT=TEMP%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DACOSTT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DACOST"></a>
<font color="#37A50B">  FUNCTION DACOST( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DACOST,TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DACOST)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=1.0_DP-S1**2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=TEMP**(0.5_DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=(S1+ I_*TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DACOST=-I_*LOG(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DACOST </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TANT"></a>
<font color="#37A50B">  FUNCTION TANT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) TANT, TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(TANT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=EXP(I_*S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=TEMP-EXP(-I_*S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TANT=EXP(I_*S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TANT=TANT+EXP(-I_*S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TANT=TEMP/TANT/I_</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION TANT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DTANHT"></a>
<font color="#37A50B">  FUNCTION DTANHT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DTANHT, TEMP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DTANHT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=EXP(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TEMP=TEMP-EXP(-S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DTANHT=EXP(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DTANHT=DTANHT+EXP(-S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DTANHT=TEMP/DTANHT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DTANHT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DCOST"></a>
<font color="#37A50B">  FUNCTION DCOST( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DCOST</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DCOST)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DCOST=EXP(I_*S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DCOST=DCOST+EXP(-I_*S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DCOST=DCOST/2.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DCOST </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DCOSHT"></a>
<font color="#37A50B">  FUNCTION DCOSHT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DCOSHT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DCOSHT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DCOSHT=EXP(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DCOSHT=DCOSHT+EXP(-S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DCOSHT=DCOSHT/2.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DCOSHT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSINT"></a>
<font color="#37A50B">  FUNCTION DSINT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DSINT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSINT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSINT=EXP(I_*S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSINT=DSINT-EXP(-I_*S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSINT=DSINT/2.0_DP/I_</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DSINT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSINHT"></a>
<font color="#37A50B">  FUNCTION DSINHT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DSINHT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSINHT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSINHT=EXP(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSINHT=DSINHT-EXP(-S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSINHT=DSINHT/2.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DSINHT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="EXPTPSAT"></a>
<font color="#37A50B">  FUNCTION EXPTPSAT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) EXPTPSAT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(EXPTPSAT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL EXPTPSA(S1,EXPTPSAT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION EXPTPSAT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSQRTT"></a>
<font color="#37A50B">  FUNCTION DSQRTT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) DSQRTT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSQRTT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DSQRTT= S1**0.5_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DSQRTT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="EXPTPSA"></a>
<font color="#FF0000">  SUBROUTINE EXPTPSA( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (INOUT) :: S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR)  S,SS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) D1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) R1 ,I1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(S)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(SS)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=S1%R.SUB.'0'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    I1=S1%I.SUB.'0'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    D1=CMPLX(R1,I1,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S=S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S=S1-D1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SS=CMPLX(1.0_DP,0.0_DP,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=CMPLX(1.0_DP,0.0_DP,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,NO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       SS=SS*S</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       SS=SS/REAL(I,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       S2=S2+SS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=EXP(D1)*S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(S)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(SS)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE EXPTPSA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ASSC"></a>
<font color="#FF0000">  SUBROUTINE ASSC(S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SELECT CASE(MASTER)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CASE(0:NDUMT-1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       MASTER=MASTER+1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CASE(NDUMT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P%NC=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P=(/" CANNOT INDENT ANYMORE "/)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P%FC='(1((1X,A72),/))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    END SELECT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS0(S1%R)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS0(S1%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE ASSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="KILL_TPSA"></a>
<font color="#FF0000">  SUBROUTINE KILL_TPSA() </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOGICAL PRESENT_TPSA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    PRESENT_TPSA=LINGYUN_YANG</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(LAST_TPSA==1) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       LINGYUN_YANG=.TRUE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL_FPP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSEIF(LAST_TPSA==2) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       LINGYUN_YANG=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL_FPP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LINGYUN_YANG=DEFAULT_TPSA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LAST_TPSA=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE KILL_TPSA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="INIT_MAP_C"></a>
<font color="#FF0000">  SUBROUTINE INIT_MAP_C(NO1,ND1,NP1,NDPT1,LOG) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER NO1,ND1,NP1,NDPT1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOGICAL(LP) LOG,PRESENT_TPSA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    PRESENT_TPSA=LINGYUN_YANG</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(LAST_TPSA==1) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       LINGYUN_YANG=.TRUE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSEIF(LAST_TPSA==2) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       LINGYUN_YANG=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LINGYUN_YANG=PRESENT_TPSA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL INIT_MAP(NO1,ND1,NP1,NDPT1,LOG)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL SET_IN_COMPLEX(LOG)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(VARC1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(VARC2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE  INIT_MAP_C </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="INIT_TPSA_C"></a>
<font color="#FF0000">  SUBROUTINE INIT_TPSA_C(NO1,NP1,LOG) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER NO1,NP1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOGICAL(LP) LOG,PRESENT_TPSA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    PRESENT_TPSA=LINGYUN_YANG</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(LAST_TPSA==1) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       LINGYUN_YANG=.TRUE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSEIF(LAST_TPSA==2) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       LINGYUN_YANG=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(VARC2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LINGYUN_YANG=PRESENT_TPSA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL INIT_TPSA(NO1,NP1,LOG)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL SET_IN_COMPLEX(LOG)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(VARC1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(VARC2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE  INIT_TPSA_C </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SET_IN_COMPLEX"></a>
<font color="#FF0000">  SUBROUTINE SET_IN_COMPLEX(LOG) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOGICAL(LP) LOG</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER IIA(4),ICOAST(4)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL LIEPEEK(IIA,ICOAST)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    OLD=LOG</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NO=IIA(1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND=IIA(3)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND2=IIA(3)*2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NP=IIA(2)-ND2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NDPT=ICOAST(4)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NV=IIA(2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font color="#FF0000">  END  SUBROUTINE SET_IN_COMPLEX </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETINTK"></a>
<font color="#37A50B">  FUNCTION GETINTK( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) GETINTK</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETINTK)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINTK%R=S1%R<=S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINTK%I=S1%I<=S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETINTK </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PEKC"></a>
<font color="#FF0000">  SUBROUTINE  PEKC(S1,J,R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,INTENT(IN),DIMENSION(:)::J</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP),INTENT(INOUT)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(IN)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) XR,XI</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL PEK000(S1%R,J,XR)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL PEK000(S1%I,J,XI)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=CMPLX(XR,XI,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE PEKC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="POKC"></a>
<font color="#FF0000">  SUBROUTINE  POKC(S1,J,R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,INTENT(IN),DIMENSION(:)::J</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP),INTENT(IN)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL POK000(S1%R,J,REAL(R1,KIND=DP))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL POK000(S1%I,J,AIMAG(R1))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font color="#FF0000">  END SUBROUTINE POKC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CFUC"></a>
<font color="#FF0000">  SUBROUTINE  CFUC(S2,FUN,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) W</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) FUN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    EXTERNAL FUN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CFUR(S2%R,FUN,W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    T%R=W</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CFUI(S2%I,FUN,W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    T%R=T%R-W</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CFUR(S2%I,FUN,W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    T%I=W</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CFUI(S2%R,FUN,W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    T%I=T%I+W</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S1=T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CFUC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CFURES"></a>
<font color="#FF0000">  SUBROUTINE  CFURES(S2,FUN,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (PBRESONANCE),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (PBRESONANCE),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR) T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) W</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) FUN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    EXTERNAL FUN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CFUR(S2%COS%H,FUN,W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    T%R=W</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CFUI(S2%SIN%H,FUN,W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    T%R=T%R-W</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CFUR(S2%SIN%H,FUN,W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    T%I=W</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CFUI(S2%COS%H,FUN,W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    T%I=T%I+W</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S1%COS%H=T%R</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S1%SIN%H=T%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(W)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CFURES </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
END MODULE  COMPLEX_TAYLOR <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
 </body>
 </html>
